0 CLEAR,,4:CLS:SCREEN0,10,0:BOXF(0,0)-(320,100),-7:FORI=3TO25:LINE(50+I*10,101)-(I*10,150):NEXT:DEFGR$(0)=0,16,32,255,105,40,4,12:DEFGR$(1)=19,28,48,80,152,36,66,129:PSET(5,15)GR$(0):ONINTERVAL=30GOTO1:BEEP:INTERVALON:DO:J=STICK(0):X=X-(J<>DD):D=J:LOOP
1 INTERVALOFF:A$="ROD1":LOCATE0,0,0:PSET(5,15)GR$(1):FORI=0TO3.6STEP.1:TURTLE0,48+(I*(X/3)),115-(SIN(I)*30),A$:SHOW1:NEXT:INPUTTURTLEU,V:FORI=0TO3.3STEP.3:TURTLE0,U+(I*(X/30)),V-(SIN(I)*5),A$:NEXT:LOCATE10,20:PRINTX/7;"Metres":DO:IFSTRIG(0)THEN0ELSELOOP